home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Shareware / IDimager Personal 4.2.0.3 / setup_IDimager_Personal_V4.exe / {app} / web / handlelogin.psc < prev    next >
Text File  |  2008-06-19  |  2KB  |  74 lines
  1. <html>
  2.  
  3. <head>
  4.   <title>IDimager Login</title>
  5.  
  6.   <link rel="stylesheet" href="idimager.css" type="text/css"/>
  7.  
  8.   <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
  9.  
  10.   %include api.inc %/include
  11.  
  12.   <style>
  13.     %include idimager.css %/include
  14.   </style>
  15.  
  16. </head>
  17.  
  18. <body>
  19.  
  20. %code
  21.  
  22. var
  23.   ADs: TDBXOMClientDataSet;
  24. begin
  25.   if (Request.Params.Values['dfUserName'] = '') or (Request.Params.Values['dfUserName'] = '') then
  26.   begin
  27.     Session.Content.Values['UserValidated'] := 'N';    
  28.     Response.Redirect ('%var:PageOffset/login.psc');
  29.     exit;
  30.   end;
  31.  
  32.   ADs := Catalog.NewDataSet;
  33.  
  34.   ADs.CommandText := 'select * from idUser where idUserName like ''' + Request.Params.Values['dfUserName'] + ''' and idPassword = ''' + MD5(Request.Params.Values['dfPassword'], '') + ''' and idProtected = 0 ';
  35.   ADs.Open;
  36.  
  37.   if (not ADs.Eof) then
  38.   begin
  39.     Session.Content.Values['UserValidated'] := 'Y';
  40.  
  41.     ADs.Edit;
  42.  
  43.     if Nvl(ADs.FieldByName ('FirstInlog').Value, 0) = 0 then
  44.       ADs.FieldByName ('FirstInlog').Value := Now;
  45.  
  46.     ADs.FieldByName ('PrevInlog').Value := ADs.FieldByName ('LastInlog').Value;
  47.     ADs.FieldByName ('LastInlog').Value := Now;
  48.  
  49.     ADs.UpdateBatch ('idUser', 'GUID', arAll);
  50.  
  51.     SessionData.Prop['CurrentUserGUID'] := ADs.FieldByName ('GUID').AsString;
  52.     SessionData.Prop['CurrentUser'] := ADs.FieldByName ('FullUserName').AsString;
  53.     SessionData.Prop['IsAdmin']     := (ADs.FieldByName ('idUserType').AsString = 'A');
  54.   end
  55.   else
  56.     Session.Content.Values['UserValidated'] := 'N';
  57.  
  58.   ADs.Close;
  59.   ADs.Free;
  60.  
  61.   if Session.Content.Values['UserValidated'] = 'Y' then
  62.     Response.Redirect ('%var:PageOffset/index.psc')
  63.   else
  64.   begin
  65.     result := 'Invalid login provided. Click <a href="%var:PageOffset/login.psc">here</a> to try again. If you don''t have a login account yet, then <a href="%var:PageOffset/register.psc">register now</a>.';
  66.   end;
  67. end;
  68.  
  69. %/code
  70.  
  71. </body>
  72.  
  73. </html>
  74.